home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / proasm / rexx / asx / quit.asx next >
Text File  |  1996-04-29  |  319b  |  24 lines
  1. /* Quit ASX                        */
  2. /* 01.08.93 : Daniel Weber         */
  3.  
  4. ADDRESS 'asx_rexx'
  5. OPTIONS RESULTS
  6.  
  7. IsTherePort
  8. ret = rc
  9. IF ret~=5 THEN DO
  10.   port = result
  11.   DO WHILE (port ~='' & ret ~=5)
  12.     ADDRESS (''||port)
  13.     EndOfAssembly
  14.     ADDRESS 'asx_rexx'
  15.     IsTherePort
  16.     port = result
  17.     ret  = RC
  18.     END
  19. END
  20.  
  21. Quit
  22.  
  23. EXIT(0)
  24.